package Spp::Spp;

use 5.016;

my $str = "a-b";

$str =~ s/a-b/c/;
$str =~ s/c/dyna(c, "(-ab)")/;

sub dyna {
    my ($char, $str) = @_;
}

# 语法树或者是字符串的解析树，字符序列都是一个不停变化的对象
# 用面向对象的方式开发应该很方便。
